<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>2</cardCount>
<cardID>3242</cardID>
<listID>4826</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>------ This stack is copyrighted 1987 by Howard Bornstein-- Design Equilibrium, Menlo Park, CA 94025. 415-328-9181---- Permission is granted for non-commercial distribution.---- This is NOT an example of good HyperTalk programming!-- It is simply a quick hack to display some of the built-in animation-- capabilities within HyperCard. You can do some interesting-- animation without creating huge stacks of cards and flipping-- through them. This stack has only two cards. Everything is-- controlled from this script.----on openstackset the userlevel to 5 -- Let people poke around in herehide menubar -- clean up the scenehide msggo to card "DEQ"repeat until the mouseClick -- keep playing script until mouse clickanimateend repeat -- play it again, Sam.end openstackOn closestackgo to card "DEQ"choose select tool -- restore things back to normaldomenu "select all"domenu "Clear Picture"choose browse toolend closestackon animate -- This does all the workput 40 into dspeed -- set the drag speedchoose select tooldomenu "select all"domenu "Clear Picture" -- start out clean-- do the "D"set lockscreen to true -- don't show what we're doingpush card -- "I'll be back"set the dragspeed to 0 -- So it doesn't take long selecting itgo to card "parts" -- go get the "d"drag from 150,176 to 21,336 with optionkey -- select it in lasso modedomenu "Copy Picture"pop card -- get back to where you once belongeddomenu "Paste Picture" -- bring it to main cardset lockscreen to false -- show itset the dragspeed to dspeeddrag from 89,236 to 89,132 -- do the first moveset dragspeed to 10wait 2 seconds -- split itdrag from 89,132 to 101,132 with optionkey -- the option key makes a-- duplicate-- Do the "Q"choose select toolset dragspeed to 0set lockscreen to truepush cardgo to card "parts"drag from 298,165 to 178,4 with optionkeydomenu "Copy Picture"pop cardset lockscreen to falsedomenu "Paste Picture"set the dragspeed to dspeeddrag from 241,9 to 241,132set dragspeed to 10wait 2 secondsdrag from 241,132 to 229,132 with optionkey -- split it-- Do the Eset dragspeed to 0set lockscreen to truepush cardgo to card "parts"choose select tooldrag from 380,13 to 494,123 with optionKeydomenu "Copy Picture"pop cardset lockscreen to falsedomenu "Paste Picture"set the dragspeed to dspeeddrag from 442,19 to 160,127set dragspeed to 10wait 2 secondsdrag from 160,127 to 174,127 with optionkey -- split it-- fade it out and inwait 2 secondsset dragspeed to 0choose select tooldrag from 20,60 to 305,296 with optionkey -- Select it in lasso modedomenu "Copy picture"repeat 50 timesdomenu "lighten" -- fade it outend repeatwait 2 secondsrepeat 50 timesdomenu "darken" -- bring it back. This works because we selected-- the item with the lasso and there are no-- enclosed spaces.end repeatdomenu "paste Picture" -- This restores the image completely.click at 1,1 -- This puts the image on the page,-- otherwise the lasso is still selecteddrag from 20,60 to 305,296 with commandkey -- Select it againwait 2 secondsdomenu "Trace Edges"domenu "Trace Edges"domenu "Trace Edges"domenu "Trace Edges"wait 2 secondsdomenu "Undo"wait 2 seconds--domenu "Invert"--wait 4 seconds--domenu "Invert"-- get the DEQ name/addresschoose select toolset lockscreen to truepush cardgo to card "parts"drag from 149,239 to 354,
(CDRM1080320)(1993).iso/FILES/HYP/C-D/DEQ Promo.cpt/DEQ Promo/PATs.png){kind=link}